VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "xlUnitFactory"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private config As xlUnitConfig

Public Function NewTestBuilder() As TestBuilder
    Set NewTestBuilder = New TestBuilder
End Function

Public Function NewTestFinder() As TestFinder
    Set NewTestFinder = New TestFinder
End Function

Public Function NewTestRunner() As TestRunner
    Set NewTestRunner = New TestRunner
End Function

Public Function ConfigObject() As xlUnitConfig
    If config Is Nothing Then
        Set config = New xlUnitConfig
    End If
    Set ConfigObject = config
End Function

Public Function newxlUnitUIManager() As xlUnitUIManager
    Set newxlUnitUIManager = New xlUnitUIManager
End Function

Public Function NewHarness() As xlUnitTestHarness
    Set NewHarness = New xlUnitTestHarness
End Function

Private Sub Class_Initialize()
    If config Is Nothing Then
        Set config = New xlUnitConfig
    End If
End Sub

